home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Yerk 3.6.6 / Float source / fp.ld < prev    next >
Encoding:
Text File  |  1993-12-27  |  1.3 KB  |  35 lines  |  [TEXT/YERK]
  1. tore this code ontop of any
  2. \  changes the system may have done at document save time. Likewise,
  3. \  the install module will do the same if you are creating a standalone
  4. \  application that might have corrupted code.
  5.  
  6. ' f> -> 'f>
  7. string data
  8. new: data
  9. : saveCode { \ codeHndl -- }
  10.     5 getres CODE -dup
  11.     IF call RmveResource THEN
  12.     'f> ' flt! over - put: data
  13.     data @ 'type CODE w 5 nullOsStr call addResource
  14.     5 getres CODE -> codeHndl
  15.     codeHndl w 16 call setResAttrs
  16.     codeHndl call ChangedResource
  17.     word0 call curResFile call UpdateResFile ;
  18.  
  19. saveCode forget data
  20.  
  21. // ::Float source:fpi/o
  22. // ::Float source:fInterpret
  23. // ::Float source:elCode
  24. // ::Float source:fpExtra
  25. // ::Float source:Float
  26.  
  27.  
  28. // ::System source:PathList
  29. // ::System source:FrontEnd
  30.  
  31. 1 beep 1 beep 1 beep 1 beep
  32. READFP
  33. save yerkFP.com
  34. Become yerk
  35.